Top 10k strings from Concon - Issue 04 - Metedatos (1984)(Sift)(es)[a].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   5 @ SIFT S.A.
   2 plot cuadrilatero
   2 parametros
   2 e$="Nombre:":
   2 ;"Numero del dato";de:
   2 *"m";md;d$
   2 (de+s));de+s;"=";d(de+s)
   2 "verifico? (s,n)";n$:
   1 vigila opciones
   1 sub principal
   1 sec. llamada 2
   1 sec. llamada 1
   1 sec. llam. 7
   1 sec. llam. 6
   1 sec. llam. 5
   1 sec. llam. 4
   1 sec. llam. 3
   1 sec. llam. 2
   1 sec. llam. 1
   1 rtnu=rtga-loto-1
   1 py0=dipa+2
   1 px0=dipa+3
   1 plx=dipa+1
   1 para el 16k hay que modificar lo siguiente:
   1 n$="cassette o microdrive:":
   1 modifica datos
   1 metedatos 
   1 mete el numero
   1 marco pantalla ZX
   1 lsbv=dipa-msbv*256
   1 loto=losu+lopa+16
   1 lista impresora
   1 juega jugador
   1 incluye dato
   1 f$=d$(s)+f$
   1 escribe opciones
   1 ejemp.dat 
   1 dnpv=posva+disu
   1 dnpv,lsbv:
   1 disu=rtnu+lopa+11
   1 d(s)=d(s-1
   1 d(s)=d(s+1
   1 d$=d$+".dat"
   1 d$="dato/opcion:"
   1 d$="cassette o microdrive":
   1 d$="Valor=":
   1 d$="Nuevo valor:":
   1 d$="Nombre :":
   1 d$="Microdrive numero:":
   1 d$(nc)=d$(s):
   1 cop=coc+18
   1 comprueba que es numero
   1 carga c.m.
   1 borra dato
   1 ayuda jugador
   1 SUBmonte  :
   1 SUB2me2   
   1 SUB2me1   "
   1 SUB2m48k  
   1 SUB2m16k  
   1 SUB2m     D
   1 METEDATOS -  CONCON N.3 VOL.1
   1 M-43142-1984
   1 GOTO 50 y ENTER
   1 ;nu;"->";d(nu):
   1 ;"dato/opcion no admite otros ca- racteres que no sean numeros o ., - + e E, pero no se producen  errores."
   1 ;"Termina pulsando f"
   1 ;"TU JUEGAS":
   1 ;"Salida accidental por error:"''"      
   1 ;"Pulsa cualquier tecla"
   1 ;"Paridad";
   1 ;"PROGRAMA METEDATOS"
   1 ;"Objetos";
   1 ;"OPCIONES"
   1 ;"Numero del dato=";de:
   1 ;"Esta lista: e E - + . como res- puesta a dato/opcion."
   1 ;"Espero c. m.":
   1 ;"Cargando ";e$:
   1 ;"Cargando ";e$+".dat, del mic.";md:
   1 ;"CONCON os desea FELIZ 1985"
   1 ;"Borrar todos los datos:"''"      
   1 ;"9-escribe esta lista (
   1 ;"8-borra un dato (
   1 ;"8 4 2 1"''
   1 ;"7-incluye un dato (
   1 ;"6-modifica datos (
   1 ;"5-guarda datos (
   1 ;"4-termina de meter datos (
   1 ;"3-lista en inpresora (
   1 ;"3 2 1 0 es"''
   1 ;"2-lista el archivo (
   1 ;"2  elevado a ";
   1 ;"1-carga datos viejos (
   1 ;"                 ";
   1 ;"                       ":
   1 ;"                        ":
   1 8290 FOR s=32450
   1 221,33,175,126,221,70
   1 +lx*(lx<50
   1 *t);b(s,t);
   1 *((coc/256
   1 *"m";md;e$+".dat"
   1 (s));s;" = ";d(s)
   1 ''" No se moleste ya ha perdido"
   1 "posicion de x=";px'"posicion de y=";py'"color=";ti'"tamano=";ts
   1 "mas? (si:1,no:0)=";n:
   1 "SUB2m48k"
   1 "Nombre (32 caracteres):";n$:
   1 "Monte:";mon:
   1 "Microdrive no.=";md:
   1 "LISTA DE LOS DATOS":